inherited FrmPessoa: TFrmPessoa
  Left = 309
  Top = 142
  ActiveControl = txtCodigo
  Caption = 'Cadastro de Pessoa'
  ClientHeight = 368
  ClientWidth = 740
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlCima: TPanel
    Width = 740
    object Label1: TLabel
      Left = 15
      Top = 14
      Width = 33
      Height = 13
      Caption = 'C'#243'digo'
    end
    object lblSituacao: TLabel
      Left = 152
      Top = 13
      Width = 5
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object txtCodigo: TEditEnh
      Left = 54
      Top = 12
      Width = 95
      Height = 19
      Text = '0'
      Alignment = taRightJustify
      Button.Key1 = 'F12'
      Button.Style = eebEllipsis
      OnButton1 = txtCodigoButton1
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnExit = txtCodigoExit
      OnKeyDown = txtCodigoKeyDown
      EditMaskEx = '::NM::!9999999990;0;0;0'
    end
  end
  inherited pnlBaixo: TPanel
    Width = 740
    Height = 290
    object Bevel1: TBevel
      Left = 444
      Top = 135
      Width = 291
      Height = 3
    end
    object Label2: TLabel
      Left = 5
      Top = 8
      Width = 28
      Height = 13
      Caption = 'Nome'
    end
    object Label3: TLabel
      Left = 624
      Top = 8
      Width = 54
      Height = 13
      Caption = 'Data Nasc.'
    end
    object Label4: TLabel
      Left = 536
      Top = 8
      Width = 24
      Height = 13
      Caption = 'Sexo'
    end
    object Label5: TLabel
      Left = 708
      Top = 8
      Width = 27
      Height = 13
      Caption = 'Idade'
    end
    object Label6: TLabel
      Left = 161
      Top = 48
      Width = 46
      Height = 13
      Caption = 'Endere'#231'o'
    end
    object Label7: TLabel
      Left = 662
      Top = 48
      Width = 30
      Height = 13
      Caption = 'C.E.P.'
    end
    object Label8: TLabel
      Left = 5
      Top = 88
      Width = 27
      Height = 13
      Caption = 'Bairro'
    end
    object Label9: TLabel
      Left = 258
      Top = 88
      Width = 33
      Height = 13
      Caption = 'Cidade'
    end
    object Label10: TLabel
      Left = 702
      Top = 88
      Width = 33
      Height = 13
      Caption = 'Estado'
    end
    object Label11: TLabel
      Left = 5
      Top = 48
      Width = 76
      Height = 13
      Caption = 'Tel. Residencial'
    end
    object Label12: TLabel
      Left = 5
      Top = 128
      Width = 38
      Height = 13
      Caption = 'Religi'#227'o'
    end
    object Label13: TLabel
      Left = 542
      Top = 128
      Width = 95
      Height = 13
      Caption = 'Hist'#243'rico Cl'#237'nico'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label14: TLabel
      Left = 5
      Top = 168
      Width = 27
      Height = 13
      Caption = 'Altura'
    end
    object Label15: TLabel
      Left = 57
      Top = 168
      Width = 24
      Height = 13
      Caption = 'Peso'
    end
    object Label16: TLabel
      Left = 161
      Top = 168
      Width = 24
      Height = 13
      Caption = 'Meta'
    end
    object Label17: TLabel
      Left = 265
      Top = 168
      Width = 53
      Height = 13
      Caption = 'Data In'#237'cio'
    end
    object Label18: TLabel
      Left = 109
      Top = 168
      Width = 28
      Height = 13
      Caption = 'I.M.C.'
    end
    object Label19: TLabel
      Left = 5
      Top = 205
      Width = 58
      Height = 13
      Caption = 'Observa'#231#227'o'
    end
    object Label20: TLabel
      Left = 83
      Top = 48
      Width = 53
      Height = 13
      Caption = 'Tel. Celular'
    end
    object Label21: TLabel
      Left = 213
      Top = 168
      Width = 50
      Height = 13
      Caption = 'Peso Ideal'
    end
    object Label22: TLabel
      Left = 347
      Top = 168
      Width = 24
      Height = 13
      Caption = 'Ativo'
    end
    object txtNome: TEditEnh
      Left = 5
      Top = 24
      Width = 529
      Height = 19
      CharCase = ecUpperCase
      MaxLength = 100
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object txtDataNasc: TwwDBDateTimePicker
      Left = 624
      Top = 24
      Width = 83
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 2
      UnboundDataType = wwDTEdtDate
      OnExit = txtDataNascExit
    end
    object cmbSexo: TComboBoxEnh
      Left = 536
      Top = 24
      Width = 86
      Height = 19
      Items.Strings = (
        ''
        'FEMININO'
        'MASCULINO')
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
    end
    object txtIdade: TEditEnh
      Left = 708
      Top = 24
      Width = 27
      Height = 19
      Text = '0'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 3
      EditMaskEx = '::NM::!90;0;0;0'
    end
    object txtEndereco: TEditEnh
      Left = 161
      Top = 64
      Width = 499
      Height = 19
      CharCase = ecUpperCase
      MaxLength = 100
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 6
    end
    object txtCEP: TEditEnh
      Left = 662
      Top = 64
      Width = 73
      Height = 19
      CharCase = ecUpperCase
      MaxLength = 20
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 7
    end
    object txtBairro: TEditEnh
      Left = 5
      Top = 104
      Width = 251
      Height = 19
      CharCase = ecUpperCase
      MaxLength = 50
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 8
    end
    object txtCidade: TEditEnh
      Left = 258
      Top = 104
      Width = 95
      Height = 19
      CharCase = ecUpperCase
      Text = '0'
      Alignment = taRightJustify
      Button.Key1 = 'F11'
      Button.Key2 = 'F12'
      Button.Size = 35
      Button.Style = eebLeftRightEllipsis
      OnButton1 = txtCidadeButton1
      OnButton2 = txtCidadeButton2
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 9
      OnEnter = txtCidadeEnter
      OnExit = txtCidadeExit
      EditMaskEx = '::NM::!999],999],990;0;0;0'
    end
    object txtCidadeNome: TEditEnh
      Left = 354
      Top = 104
      Width = 346
      Height = 19
      TabStop = False
      ReadOnly = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 10
      Color = clBtnFace
    end
    object txtUF: TEditEnh
      Left = 702
      Top = 104
      Width = 33
      Height = 19
      TabStop = False
      CharCase = ecUpperCase
      MaxLength = 2
      ReadOnly = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 11
      Color = clBtnFace
    end
    object txtTelefone: TEditEnh
      Left = 5
      Top = 64
      Width = 76
      Height = 19
      CharCase = ecUpperCase
      MaxLength = 20
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 4
    end
    object txtReligiao: TEditEnh
      Left = 5
      Top = 144
      Width = 95
      Height = 19
      CharCase = ecUpperCase
      Text = '0'
      Alignment = taRightJustify
      Button.Key1 = 'F11'
      Button.Key2 = 'F12'
      Button.Size = 35
      Button.Style = eebLeftRightEllipsis
      OnButton1 = txtReligiaoButton1
      OnButton2 = txtReligiaoButton2
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 12
      OnEnter = txtCidadeEnter
      OnExit = txtReligiaoExit
      EditMaskEx = '::NM::!999],999],990;0;0;0'
    end
    object txtReligiaoNome: TEditEnh
      Left = 101
      Top = 144
      Width = 340
      Height = 19
      TabStop = False
      ReadOnly = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 13
      Color = clBtnFace
    end
    object chkHipertensao: TCheckBox
      Left = 444
      Top = 145
      Width = 78
      Height = 17
      Caption = 'Hipertens'#227'o'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 14
    end
    object chkDiabetes: TCheckBox
      Left = 524
      Top = 145
      Width = 63
      Height = 17
      Caption = 'Diabetes'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 15
    end
    object chkColesterol: TCheckBox
      Left = 589
      Top = 145
      Width = 67
      Height = 17
      Caption = 'Colesterol'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 16
    end
    object txtAltura: TEditEnh
      Left = 5
      Top = 184
      Width = 50
      Height = 19
      Text = '0,00'
      OnChange = txtAlturaChange
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 18
      EditMaskEx = '::NM::!999],999],999],990!.00;0;0;0'
    end
    object txtPeso: TEditEnh
      Left = 57
      Top = 184
      Width = 50
      Height = 19
      Text = '0,000'
      OnChange = txtAlturaChange
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 19
      OnExit = txtPesoExit
      EditMaskEx = '::NM::!999],999],999],990!.000;0;0;0'
    end
    object txtMeta: TEditEnh
      Left = 161
      Top = 184
      Width = 50
      Height = 19
      Text = '0,000'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 21
      EditMaskEx = '::NM::!999],999],999],990!.000;0;0;0'
    end
    object txtDataInicio: TwwDBDateTimePicker
      Left = 265
      Top = 184
      Width = 82
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 23
      UnboundDataType = wwDTEdtDate
      OnExit = txtDataNascExit
    end
    object txtIMC: TEditEnh
      Left = 109
      Top = 184
      Width = 50
      Height = 19
      Text = '0,000'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 20
      EditMaskEx = '::NM::!999],999],999],990!.000;0;0;0'
    end
    object txtObs: TMemo
      Left = 5
      Top = 220
      Width = 730
      Height = 66
      Ctl3D = False
      ParentCtl3D = False
      ScrollBars = ssVertical
      TabOrder = 25
      OnKeyPress = txtObsKeyPress
    end
    object txtCelular: TEditEnh
      Left = 83
      Top = 64
      Width = 76
      Height = 19
      CharCase = ecUpperCase
      MaxLength = 20
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 5
    end
    object chkTrigleceridio: TCheckBox
      Left = 660
      Top = 145
      Width = 77
      Height = 17
      Caption = 'Triglicer'#237'dio'
      TabOrder = 17
    end
    object txtPesoIdeal: TEditEnh
      Left = 213
      Top = 184
      Width = 50
      Height = 19
      Text = '0,000'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 22
      EditMaskEx = '::NM::!999],999],999],990!.000;0;0;0'
    end
    object cmbAtivo: TComboBoxEnh
      Left = 347
      Top = 184
      Width = 46
      Height = 19
      Items.Strings = (
        'N'#195'O'
        'SIM')
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 24
    end
  end
  inherited JvFooter1: TJvFooter
    Top = 331
    Width = 740
    inherited btnGravar: TJvFooterBtn
      Left = 420
      OnClick = btnGravarClick
    end
    inherited btnCancelar: TJvFooterBtn
      Left = 500
      OnClick = btnCancelarClick
    end
    inherited btnExcluir: TJvFooterBtn
      Left = 580
      OnClick = btnExcluirClick
    end
    inherited btnFechar: TJvFooterBtn
      Left = 658
    end
  end
end
